home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
fb386
/
graf
/
a02.bas
< prev
next >
Wrap
BASIC Source File
|
1993-11-30
|
2KB
|
45 lines
1000 'A02.BAS**************************************************T.K.MOSAKU
1010 SCREEN@ 1:CLS
1020 RANDOMIZE TIME
1030 A$="☆☆☆ 任意の色で画面を染め分けています。 ☆☆☆"
1040 T1=TIME:S=1:CC=7:PT=4
1050 A=LEN(A$):B=(80-A)\2:LOCATE 0,23:COLOR 7:PRINT SPACE$(B)+A$
1060 LINE (63,47)-(255,191),PSET,5,B:LINE (61,45)-(257,193),PSET,5,B::LINE (59,43)-(259,195),PSET,5,B
1065 WAIT 100
1070 FOR M=0 TO 6
1080 T2=TIME
1090 LOCATE 34,21:PRINT PT;"分割画面 "
1100 READ TN,IN,JN,X,Y,XX,YY,CHECK1,CHECK2,PT:GOSUB *MAIN
1110 IF CHECK1=1 THEN LINE (64,48)-(254,190),PSET,0,BF
1120 T3=TIME:T=T3-T1:TT=T3-T2
1130 LOCATE 5,1:COLOR CC:PRINT "ここでの時間--";TT;"秒。";" ここまで描き上げた時間--";T;"秒。"
1140 IF CC=7 THEN CC=5 ELSE CC=7
1150 IF CHECK1=0 THEN WAIT 200
1160 NEXT
1170 GOTO 1420
1180 DATA 2,1, 1 ,96,72,158,118,1,1, 9
1190 DATA 2,2, 2 ,64,48,126, 94,1,1,16
1200 DATA 1,3, 3 ,48,36,110, 82,1,1,36
1210 DATA 1,5, 5 ,32,24,94 , 70,1,1,64
1220 DATA 1,7, 7 ,24,18,86 , 64,1,1,1152
1230 DATA 0,31,35,6 , 4,68 , 50,0,1,0
1240 DATA 0,31,35,6 , 4,68 , 50,0,0,0
1250 *MAIN
1260 FOR T=0 TO TN
1270 FOR I=0 TO IN
1280 FOR J=0 TO JN
1290 IF CHECK2=1 THEN GOSUB *M1 ELSE GOSUB *M2
1300 NEXT J
1310 NEXT I
1320 IF TN=0 THEN 1330 ELSE WAIT 200
1330 NEXT T
1340 RETURN
1350 '
1360 *M1
1370 LINE (X*I+64,Y*J+48)-(X*I+XX,Y*J+YY),PSET,[CINT(RND(1)*255),CINT(RND(1)*255),CINT(RND(1)*255)],BF
1380 RETURN
1390 *M2
1400 LINE (X*I+64,Y*J+48)-(X*I+XX,Y*J+YY),PSET,0,BF
1410 RETURN
1420 '